home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / asyncom.arc / RECV.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-07-14  |  532 b   |  14 lines
  1. 10  DEFINT A-Z
  2. 20  TV$=CHR$(255)
  3. 30  OPEN "com1:9600,n,8,1,rs,cs,ds,cd" AS #1
  4. 40  CLS:LOCATE 10,10:PRINT "Waiting....":LOCATE 13,15
  5. 50  IF LOC(1)=0 THEN IF INKEY$>"" THEN CLOSE:CLS:SYSTEM ELSE GOTO 50
  6. 60  L=LOC(1):IF L>250 THEN L=250
  7. 70  T$=INPUT$(L,#1)
  8. 80  IF FM THEN PRINT#2, T$;:T!=T!+L:IF T!=LR! THEN CLOSE 2:FM=0:PRINT #1, TV$;:GOTO 40 ELSE 50
  9. 90  IF SM=0 THEN T=INSTR(1,T$,TV$):IF T>0 THEN F$=MID$(T$,T+1):SM=1:GOTO 50 ELSE PRINT T$:GOTO 50
  10. 100  F$=F$+T$:IF LEN(F$)<16 THEN 50 ELSE T$=MID$(F$,17)
  11. 110  LR!=CVS(MID$(F$,13,4)):F$=LEFT$(F$,12):OPEN F$ FOR OUTPUT AS #2
  12. 120  FM=1:SM=0:T!=0:PRINT "copying ";F$;" length=";LR!:PRINT #1,TV$;
  13. 130  L=LEN(T$):IF L THEN 80 ELSE 50
  14.